home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Foro / CASAS / ESTRUC.INC < prev    next >
Text File  |  1997-02-25  |  369b  |  41 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. object{
  7. union{
  8. difference{
  9. cone{
  10.  <0,190,0> , 250
  11.  <0,220,0> , 50
  12.  
  13. }
  14. cone{
  15.  <0,180,0> , 200
  16.  <0,230,0> , 80
  17.  
  18. }
  19. }
  20.  
  21.  
  22. #declare f=0
  23. #while(f<300)
  24.  box{<-150+f,203,-150><-149+f,203,150> pigment{rgb<0.6,0.6,0.6>}}
  25.  #declare f=f+10
  26. #end
  27.  
  28. }
  29. pigment{rgb<0.5,0.5,0.5>}
  30. scale<1.5,1,0.9>
  31. scale<0.75,1,0.75>
  32. translate<0,-115,0>
  33. }
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.